strComputer = "."

set wmi = GetObject("winmgmts:")
set services = wmi.ExecQuery("Select * FROM Win32_Service where Name='ProcessAffinityControlService'")
For Each service in services
	service.StartService()
Next